home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4 / Atari Forever 4.iso / SERIE_AI / AI_017 / INTERNET.TOS / SOFTWARE / LANCESR / PKTQASM.S < prev    next >
Encoding:
Text File  |  1993-01-17  |  306 b   |  26 lines
  1.         xdef    p_disint
  2.         xdef    p_enabint
  3.         
  4.         super
  5.         data
  6.         
  7.         xref    p_intstat
  8.  
  9.         text
  10.  
  11. p_disint:
  12.         move    sr,d0
  13.         ori        #$700,sr
  14.         move.w    d0,p_intstat
  15.         rts
  16.         
  17.         
  18. p_enabint:
  19.         move.w     p_intstat,d0
  20.         move    sr,d1    
  21.         andi.w    #$0700,d0
  22.         andi.w    #$F8FF,d1
  23.         or.w    d0,d1
  24.         move.w    d1,sr
  25.         rts
  26.